#Include 'Protheus.ch'

/*/{Protheus.doc} F740BROW
Ponto de entrada na Funcoes de contas a receber
@author Telso
@since 28/01/2015
@version 1.0
@return $nil
/*/

User Function F740BROW()
Local aAux := aClone(aRotina)
Local nPos := 0

If ExistBlock("DTFINR04")
	If (nPos := Ascan(aAux,{|x| upper(Alltrim(x[1]))=="IMPRIMIR RECIBO" })) > 0
		aAux[npos] := { "Imprimir Recibo","U_DTFINR04(.T.)", 0 , 6}
	Else
		aAdd( aAux, { "Imprimir Recibo","U_DTFINR04(.T.)", 0 , 6})
	EndIf
EndIF

aRotina := aClone(aAux)

Return

